home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue04 / basicforum / binarchive next >
Encoding:
Text File  |  1989-12-04  |  308 b   |  2 lines
  1.  
  2.  ô > Bin_Archive
  3. &* Ý ¤search_archive(low%,high%,search%)
  4. 0 ê A%,B%,R%
  5. :+ where=0:A%=low%:B%=high%:find%=search%
  6. D õ
  7. N R%=¨((A%+B%)/2)
  8. X ç n%(R%)>find% …
  9. b
  10.  B%=R%
  11. l Ì
  12. v ç n%(R%)<find% … A%=R%
  13. € Ì
  14. ⇩ where = R%
  15. “ Í
  16. fi Í
  17. ¨ ý where>0 ☓ B%-A%=1
  18. ² ç where=0 … where=A%+1
  19. ¼  = where
  20. ÿ